object fUpdate: TfUpdate
  Left = 325
  Top = 146
  Width = 641
  Height = 555
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object FlatGauge1: TFlatGauge
    Left = 104
    Top = 180
    Width = 401
    Height = 25
    AdvColorBorder = 0
    ColorBorder = 8623776
    Progress = 0
  end
  object FlatGauge2: TFlatGauge
    Left = 104
    Top = 207
    Width = 401
    Height = 25
    AdvColorBorder = 0
    ColorBorder = 8623776
    Progress = 0
  end
  object BitBtn1: TBitBtn
    Left = 16
    Top = -102
    Width = 249
    Height = 41
    Caption = '1'#186' Passo (Atualizar Lan'#231'amentos do inquilino)'
    TabOrder = 0
    Visible = False
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 248
    Top = -101
    Width = 249
    Height = 41
    Caption = '2'#186' Passo (Atualizar Lan'#231'amentos do Proprietario)'
    TabOrder = 1
    Visible = False
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 16
    Top = -68
    Width = 249
    Height = 41
    Caption = '3'#186' Passo (Copiar LanPro para Lan'#231'amentos)'
    TabOrder = 2
    Visible = False
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 248
    Top = -67
    Width = 249
    Height = 41
    Caption = '4'#186' Passo (Copiar codigo do imovel)'
    TabOrder = 3
    Visible = False
    OnClick = BitBtn4Click
  end
  object dxButton1: TdxButton
    Left = 136
    Top = -62
    Width = 345
    Height = 41
    About = 'Design eXperience. '#169' 2002 M. Hoffmann'
    Version = '1.0.2e'
    OnClick = dxButton1Click
    Caption = 'Update Tabela Lan'#231'amentos'
    TabOrder = 4
  end
  object dxButton2: TdxButton
    Left = 136
    Top = -56
    Width = 345
    Height = 41
    About = 'Design eXperience. '#169' 2002 M. Hoffmann'
    Version = '1.0.2e'
    OnClick = dxButton2Click
    Caption = 'Update Vencimento Repasse'
    TabOrder = 5
  end
  object dxButton4: TdxButton
    Left = 136
    Top = 32
    Width = 345
    Height = 41
    About = 'Design eXperience. '#169' 2002 M. Hoffmann'
    Version = '1.0.2e'
    OnClick = dxButton4Click
    Caption = 'CODIGO INQUILINO/PROPRIETARIO'
    TabOrder = 6
  end
  object DBGrid1: TDBGrid
    Left = 64
    Top = 240
    Width = 521
    Height = 233
    DataSource = dstImovel
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'COD_IMALU'
        Title.Caption = 'Imovel'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COD_PROPRIETARIO'
        Title.Caption = 'Prop.'
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COD_INQUILINO'
        Title.Caption = 'Inqu.'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DIAPGTO'
        Title.Caption = 'Dia Pgto'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRAZO_REPASSE'
        Title.Caption = 'Prazo Rep.'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATA_LOCA'
        Title.Caption = 'Data Loca'#231#227'o'
        Visible = True
      end>
  end
  object dxButton3: TdxButton
    Left = 136
    Top = 75
    Width = 345
    Height = 41
    About = 'Design eXperience. '#169' 2002 M. Hoffmann'
    Version = '1.0.2e'
    OnClick = dxButton3Click
    Caption = 'ATIVO='#39'N'#39
    TabOrder = 8
  end
  object dxButton5: TdxButton
    Left = 136
    Top = 118
    Width = 345
    Height = 41
    About = 'Design eXperience. '#169' 2002 M. Hoffmann'
    Version = '1.0.2e'
    OnClick = dxButton5Click
    Caption = 'DATA REPASSE'
    TabOrder = 9
  end
  object BitBtn5: TBitBtn
    Left = 248
    Top = 480
    Width = 75
    Height = 25
    Caption = 'Corre'#231#245'es'
    TabOrder = 10
    OnClick = BitBtn5Click
  end
  object sHImalu: TSQLDataSet
    CommandText = 'select * from H_IMALU order by COD_H_IMALU'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 504
    Top = 16
    object sHImaluCOD_H_IMALU: TIntegerField
      FieldName = 'COD_H_IMALU'
      Required = True
    end
    object sHImaluCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object sHImaluPARCELA: TStringField
      FieldName = 'PARCELA'
      Size = 10
    end
    object sHImaluVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object sHImaluSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object sHImaluTOTAL_ALUGUEL: TFloatField
      FieldName = 'TOTAL_ALUGUEL'
    end
    object sHImaluTOTAL_RECEBIDO: TFloatField
      FieldName = 'TOTAL_RECEBIDO'
    end
    object sHImaluREC_INQUILINO: TStringField
      FieldName = 'REC_INQUILINO'
      Size = 3
    end
    object sHImaluDATA_REC: TDateField
      FieldName = 'DATA_REC'
    end
    object sHImaluREP_PROPRIETARIO: TStringField
      FieldName = 'REP_PROPRIETARIO'
      Size = 3
    end
    object sHImaluDATA_REP: TDateField
      FieldName = 'DATA_REP'
    end
    object sHImaluTOTAL_REPASSE: TFloatField
      FieldName = 'TOTAL_REPASSE'
    end
    object sHImaluFORMA_REC: TStringField
      FieldName = 'FORMA_REC'
    end
    object sHImaluNDOC_REC: TStringField
      FieldName = 'NDOC_REC'
    end
    object sHImaluCAIXA_REC: TStringField
      FieldName = 'CAIXA_REC'
    end
    object sHImaluPERIODO_REC: TDateField
      FieldName = 'PERIODO_REC'
    end
    object sHImaluPERIODO_REP: TDateField
      FieldName = 'PERIODO_REP'
    end
    object sHImaluFORMA_REP: TStringField
      FieldName = 'FORMA_REP'
    end
    object sHImaluNDOC_REP: TStringField
      FieldName = 'NDOC_REP'
    end
    object sHImaluCAIXA_REP: TStringField
      FieldName = 'CAIXA_REP'
    end
    object sHImaluVALOR_A_REC: TFloatField
      FieldName = 'VALOR_A_REC'
    end
    object sHImaluVALOR_A_REP: TFloatField
      FieldName = 'VALOR_A_REP'
    end
    object sHImaluTROCO_REC: TFloatField
      FieldName = 'TROCO_REC'
    end
    object sHImaluTROCO_REP: TFloatField
      FieldName = 'TROCO_REP'
    end
    object sHImaluDESCRICAO_REC: TStringField
      FieldName = 'DESCRICAO_REC'
      Size = 60
    end
    object sHImaluDESCRICAO_REP: TStringField
      FieldName = 'DESCRICAO_REP'
      Size = 60
    end
    object sHImaluVENCIMENTO_REP: TDateField
      FieldName = 'VENCIMENTO_REP'
    end
    object sHImaluSTATUS_PRO: TStringField
      FieldName = 'STATUS_PRO'
      Size = 10
    end
    object sHImaluPERIODO_REC1: TDateField
      FieldName = 'PERIODO_REC1'
    end
    object sHImaluPERIODO_REP1: TDateField
      FieldName = 'PERIODO_REP1'
    end
    object sHImaluTOTAL_DESPESAS: TFloatField
      FieldName = 'TOTAL_DESPESAS'
    end
    object sHImaluTOTAL_RECEITAS: TFloatField
      FieldName = 'TOTAL_RECEITAS'
    end
    object sHImaluTOTAL_DESPESAS_REP: TFloatField
      FieldName = 'TOTAL_DESPESAS_REP'
    end
    object sHImaluTOTAL_RECEITAS_REP: TFloatField
      FieldName = 'TOTAL_RECEITAS_REP'
    end
    object sHImaluDESCRICAO_REC1: TStringField
      FieldName = 'DESCRICAO_REC1'
      Size = 60
    end
    object sHImaluDESCRICAO_REP1: TStringField
      FieldName = 'DESCRICAO_REP1'
      Size = 60
    end
    object sHImaluCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object sHImaluCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object sHImaluSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
    object sHImaluCOD_CONTA: TIntegerField
      FieldName = 'COD_CONTA'
    end
  end
  object sLanc: TSQLDataSet
    CommandText = 'select * from LANCAMENTOS '#13#10'where COD_IMALU = :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 504
    Top = 48
    object sLancCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sLancCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object sLancCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object sLancCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object sLancQUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object sLancVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object sLancVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object sLancDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object sLancPARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object sLancVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sLancDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object sLancCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object sLancCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sLancCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object sLancVIA: TStringField
      FieldName = 'VIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object sLancGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object sLancTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sLancSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sLancFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sLancN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
  end
  object pLanc: TDataSetProvider
    DataSet = sLanc
    UpdateMode = upWhereKeyOnly
    Left = 536
    Top = 48
  end
  object cLanc: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'pLanc'
    Left = 568
    Top = 48
    object cLancCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cLancCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object cLancCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object cLancCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object cLancQUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object cLancVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object cLancVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object cLancDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cLancPARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object cLancVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cLancDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object cLancCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object cLancCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cLancCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cLancVIA: TStringField
      FieldName = 'VIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cLancGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object cLancTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cLancSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cLancFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cLancN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
  end
  object sLancPro: TSQLDataSet
    CommandText = 'select * from LANCAMENTOS_PRO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 504
    Top = 112
    object sLancProCOD_LANCAMENTO_PRO: TIntegerField
      FieldName = 'COD_LANCAMENTO_PRO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sLancProCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProQUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object sLancProDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProPARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object sLancProVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pLancPro: TDataSetProvider
    DataSet = sLancPro
    Left = 536
    Top = 112
  end
  object cLancPro: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'pLancPro'
    Left = 568
    Top = 112
    object cLancProCOD_LANCAMENTO_PRO: TIntegerField
      FieldName = 'COD_LANCAMENTO_PRO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cLancProCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProQUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cLancProDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProPARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object cLancProVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object sLanc1: TSQLDataSet
    CommandText = 
      'select * from LANCAMENTOS '#13#10'where COD_IMALU = :id and Grupo = '#39'P' +
      'roprietario'#39
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 504
    Top = 80
    object sLanc1COD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sLanc1COD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1COD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1COD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1QUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1VALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1VALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1DESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object sLanc1PARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1VENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1DATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1COD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1COD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1COD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1VIA: TStringField
      FieldName = 'VIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object sLanc1GRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object sLanc1TIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sLanc1STATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sLanc1FORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sLanc1N_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
  end
  object pLanc1: TDataSetProvider
    DataSet = sLanc1
    UpdateMode = upWhereKeyOnly
    Left = 536
    Top = 80
  end
  object cLanc1: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'pLanc1'
    Left = 568
    Top = 80
    object cLanc1COD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object cLanc1COD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object cLanc1COD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cLanc1COD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object cLanc1QUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object cLanc1VALOR: TFloatField
      FieldName = 'VALOR'
    end
    object cLanc1VALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object cLanc1DESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object cLanc1PARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object cLanc1VENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object cLanc1DATA_LANC: TDateField
      FieldName = 'DATA_LANC'
    end
    object cLanc1COD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object cLanc1COD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
    end
    object cLanc1COD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object cLanc1VIA: TStringField
      FieldName = 'VIA'
      Size = 2
    end
    object cLanc1GRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object cLanc1TIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      Size = 10
    end
    object cLanc1STATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object cLanc1FORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      Size = 30
    end
    object cLanc1N_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      Size = 40
    end
  end
  object sImovel: TSQLDataSet
    CommandText = 
      'select TAXA_ADM, PRAZO_REPASSE, DIAPGTO from IMOVEL_ALUGUEL '#13#10'wh' +
      'ere COD_IMALU = :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 504
    Top = 152
    object sImovelTAXA_ADM: TFloatField
      FieldName = 'TAXA_ADM'
    end
    object sImovelPRAZO_REPASSE: TIntegerField
      FieldName = 'PRAZO_REPASSE'
    end
    object sImovelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      Size = 2
    end
  end
  object sLa: TSQLDataSet
    CommandText = 
      'select M.COD_LANCAMENTO, M.VENCIMENTO, I.PRAZO_REPASSE '#13#10'from LA' +
      'NCAMENTOS M inner join IMOVEL_ALUGUEL I on '#13#10'i.COD_IMALU = M.COD' +
      '_IMALU '#13#10'where I.ALUGADO = '#39'S'#39' '#13#10'and M.GRUPO = '#39'Proprietario'#39
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 504
    Top = 184
    object sLaCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sLaVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sLaPRAZO_REPASSE: TIntegerField
      FieldName = 'PRAZO_REPASSE'
      ProviderFlags = []
    end
  end
  object SQLDataSet2: TSQLDataSet
    Params = <>
    Left = 536
    Top = 152
  end
  object pLa: TDataSetProvider
    DataSet = sLa
    UpdateMode = upWhereKeyOnly
    Left = 536
    Top = 184
  end
  object cLa: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'pLa'
    Left = 568
    Top = 184
    object cLaCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cLaVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cLaPRAZO_REPASSE: TIntegerField
      FieldName = 'PRAZO_REPASSE'
      ProviderFlags = []
    end
  end
  object sdsImovel: TSQLDataSet
    CommandText = 
      'select COD_IMALU, COD_PROPRIETARIO, COD_INQUILINO, DIAPGTO, PRAZ' +
      'O_REPASSE, DATA_LOCA  '#13#10' from IMOVEL_ALUGUEL '#13#10'where ALUGADO = '#39 +
      'S'#39
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 8
    Top = 16
    object sdsImovelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      Required = True
    end
    object sdsImovelCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object sdsImovelCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object sdsImovelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      Size = 2
    end
    object sdsImovelPRAZO_REPASSE: TIntegerField
      FieldName = 'PRAZO_REPASSE'
    end
    object sdsImovelDATA_LOCA: TDateField
      FieldName = 'DATA_LOCA'
    end
  end
  object dspImovel: TDataSetProvider
    DataSet = sdsImovel
    Left = 40
    Top = 16
  end
  object cdsImovel: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspImovel'
    Left = 72
    Top = 16
    object cdsImovelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      Required = True
    end
    object cdsImovelCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object cdsImovelCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object cdsImovelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      Size = 2
    end
    object cdsImovelPRAZO_REPASSE: TIntegerField
      FieldName = 'PRAZO_REPASSE'
    end
    object cdsImovelDATA_LOCA: TDateField
      FieldName = 'DATA_LOCA'
    end
  end
  object dstImovel: TDataSource
    DataSet = cdsImovel
    Left = 104
    Top = 16
  end
  object sdsLancamentos: TSQLDataSet
    CommandText = 
      'select * from LANCAMENTOS '#13#10'where COD_IMALU = :ima '#13#10'and Grupo =' +
      ' '#39'Proprietario'#39
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'ima'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 8
    Top = 48
    object sdsLancamentosCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object sdsLancamentosCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object sdsLancamentosCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object sdsLancamentosCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object sdsLancamentosQUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object sdsLancamentosVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object sdsLancamentosVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object sdsLancamentosDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object sdsLancamentosPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object sdsLancamentosVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object sdsLancamentosDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
    end
    object sdsLancamentosCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object sdsLancamentosCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
    end
    object sdsLancamentosCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object sdsLancamentosVIA: TStringField
      FieldName = 'VIA'
      Size = 2
    end
    object sdsLancamentosGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object sdsLancamentosTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      Size = 10
    end
    object sdsLancamentosSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object sdsLancamentosFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      Size = 30
    end
    object sdsLancamentosN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      Size = 40
    end
    object sdsLancamentosDATAPAGTO: TDateField
      FieldName = 'DATAPAGTO'
    end
    object sdsLancamentosSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
    object sdsLancamentosVALORPAGO: TFloatField
      FieldName = 'VALORPAGO'
    end
    object sdsLancamentosVALORTROCO: TFloatField
      FieldName = 'VALORTROCO'
    end
    object sdsLancamentosVALORJUROS: TFloatField
      FieldName = 'VALORJUROS'
    end
    object sdsLancamentosVALORDESCONTO: TFloatField
      FieldName = 'VALORDESCONTO'
    end
    object sdsLancamentosATIVO: TStringField
      FieldName = 'ATIVO'
      FixedChar = True
      Size = 1
    end
  end
  object dspLanc: TDataSetProvider
    DataSet = sdsLancamentos
    Left = 40
    Top = 48
  end
  object cdsLancamentos: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'ima'
        ParamType = ptInput
      end>
    ProviderName = 'dspLanc'
    Left = 72
    Top = 48
    object cdsLancamentosCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object cdsLancamentosCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object cdsLancamentosCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cdsLancamentosCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object cdsLancamentosQUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object cdsLancamentosVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object cdsLancamentosVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object cdsLancamentosDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object cdsLancamentosPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object cdsLancamentosVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object cdsLancamentosDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
    end
    object cdsLancamentosCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object cdsLancamentosCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
    end
    object cdsLancamentosCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object cdsLancamentosVIA: TStringField
      FieldName = 'VIA'
      Size = 2
    end
    object cdsLancamentosGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object cdsLancamentosTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      Size = 10
    end
    object cdsLancamentosSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object cdsLancamentosFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      Size = 30
    end
    object cdsLancamentosN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      Size = 40
    end
    object cdsLancamentosDATAPAGTO: TDateField
      FieldName = 'DATAPAGTO'
    end
    object cdsLancamentosSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
    object cdsLancamentosVALORPAGO: TFloatField
      FieldName = 'VALORPAGO'
    end
    object cdsLancamentosVALORTROCO: TFloatField
      FieldName = 'VALORTROCO'
    end
    object cdsLancamentosVALORJUROS: TFloatField
      FieldName = 'VALORJUROS'
    end
    object cdsLancamentosVALORDESCONTO: TFloatField
      FieldName = 'VALORDESCONTO'
    end
    object cdsLancamentosATIVO: TStringField
      FieldName = 'ATIVO'
      FixedChar = True
      Size = 1
    end
  end
end
